CharStrings exch get newpath exec restore}B

{Encoding exch get}ifelse dup CharStrings exch known not{pop/.notdef}if

{5 string cvs cName 1 3 -1 roll putinterval cName( )search{exch pop exch pop}if cvn}

/BC2{save exch StrokeWidth setlinewidth dup 255 gt